(describe-face): Allow handling a string as the face name.

diff --git a/lisp/faces.el b/lisp/faces.el
index 2e4791358ddf55046908dd77ca24d30d3a0e0f03..c6f80f7f5b07ed1dfc345131c2ff3574971269ba 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1285,6 +1285,7 @@ If FRAME is omitted or nil, use the selected frame."
       (save-excursion
        (set-buffer standard-output)
        (dolist (f face)
+         (if (stringp f) (setq f (intern f)))
          (insert "Face: " (symbol-name f))
          (if (not (facep f))
              (insert "   undefined face.\n")